Dashboard

Row

Open Access-Artikel mit Charité-Beteiligung 2018

Open Access-Artikel mit Charité-Beteiligung 2019

Open Access-Artikel mit Charité-Beteiligung 2020

Row

Artikel mit Charité-Corresponding Author 2018-2020

Artikel erscheint in einer reinen OA-Zeitschrift (vgl. DOAJ) 2018-2020

Row

Analyse 1

Open Access-Status von Artikeln mit Charité-Beteiligung insgesamt und von Artikeln mit Charité-Corresponding Author 2018-2020

Row

Artikel mit Charité-Beteiligung (in %)

Artikel mit Charité-Corresponding Author (in %)

Row

Artikel mit Charité-Beteiligung (absolute Zahlen)

Artikel mit Charité-Corresponding Author (absolute Zahlen)

Row

Analyse 2

Open Access-Status von Artikeln mit Charité-Beteiligung nach Verlagen und Zeitschriften im Jahr 2020

Row

Artikel nach Verlagen in absoluten Zahlen

Artikel nach Zeitschriften in absoluten Zahlen

Row

Zentrale Förderung von Artikeln mit Charité-Corresponding Author 2018-2020 nach Verlagen (Top 10)

… und nach Jahren

Row

Analyse 3

Lizenzen der mit Charité-Beteiligung publizierten Artikel 2018-2020

Row

Lizenzen für alle Artikel

Lizenzen für Artikel mit OA-Status gold, hybrid oder green

Datentabellen

Row

Artikel mit Charité-Beteiligung: Jahr und OA-Status

jahr oa_status value percent
2018 gold 1085 24.5
2018 hybrid 397 9.0
2018 green 359 8.1
2018 bronze 709 16.0
2018 closed 1779 40.2
2018 kein ergebnis 92 2.1
2019 gold 1407 30.1
2019 hybrid 531 11.4
2019 green 410 8.8
2019 bronze 546 11.7
2019 closed 1698 36.3
2019 kein ergebnis 84 1.8
2020 gold 1890 31.1
2020 hybrid 1323 21.8
2020 green 322 5.3
2020 bronze 424 7.0
2020 closed 2015 33.1
2020 kein ergebnis 107 1.8

Row

Artikel Charité Corresponding Author: Jahr und OA-Status

jahr oa_status value percent
2018 gold 488 25.9
2018 hybrid 105 5.6
2018 green 107 5.7
2018 bronze 228 12.1
2018 closed 913 48.4
2018 kein ergebnis 45 2.4
2019 gold 661 34.9
2019 hybrid 139 7.3
2019 green 104 5.5
2019 bronze 168 8.9
2019 closed 785 41.4
2019 kein ergebnis 38 2.0
2020 gold 878 35.0
2020 hybrid 563 22.4
2020 green 59 2.3
2020 bronze 141 5.6
2020 closed 829 33.0
2020 kein ergebnis 41 1.6

Row

Artikel mit Charité-Beteiligung 2018-2020: Lizenzen und OA-Status

license oa_status count
cc-by gold 3342
cc-by hybrid 1217
cc-by green 44
cc-by bronze 7
cc-by closed 8
cc-by kein ergebnis 0
cc-by-nc gold 458
cc-by-nc hybrid 391
cc-by-nc green 26
cc-by-nc bronze 4
cc-by-nc closed 1
cc-by-nc kein ergebnis 0
cc-by-sa gold 2
cc-by-sa hybrid 1
cc-by-sa green 0
cc-by-sa bronze 1
cc-by-sa closed 0
cc-by-sa kein ergebnis 0
cc-by-nc-sa gold 19
cc-by-nc-sa hybrid 10
cc-by-nc-sa green 7
cc-by-nc-sa bronze 1
cc-by-nc-sa closed 0
cc-by-nc-sa kein ergebnis 0
cc-by-nd gold 0
cc-by-nd hybrid 2
cc-by-nd green 1
cc-by-nd bronze 0
cc-by-nd closed 0
cc-by-nd kein ergebnis 0
cc-by-nc-nd gold 445
cc-by-nc-nd hybrid 596
cc-by-nc-nd green 91
cc-by-nc-nd bronze 24
cc-by-nc-nd closed 6
cc-by-nc-nd kein ergebnis 0
sonstige Lizenz gold 6
sonstige Lizenz hybrid 30
sonstige Lizenz green 41
sonstige Lizenz bronze 191
sonstige Lizenz closed 9
sonstige Lizenz kein ergebnis 0
kein Ergebnis gold 70
kein Ergebnis hybrid 4
kein Ergebnis green 881
kein Ergebnis bronze 1451
kein Ergebnis closed 5468
kein Ergebnis kein ergebnis 1

About

Das Open Access Dashboard befindet sich in der Entwicklung

Beitragende

Quellen

Stand der Datenerhebung

07.04.2021

---
title: "Charité Open Access Dashboard"
output: 
  flexdashboard::flex_dashboard:
    theme:
      version: 4
      navbar-bg: "#e97202"
      base_font: "'Source Sans Pro', Calibri, Candara, Arial, sans-serif" #"'Neue Helvetica Thai', Helvetica, Arial, sans-serif"
    orientation: rows
    vertical_layout: scroll
    source_code: embed
    css: styles.css

# author: Jan Taubitz
# email: jan.taubitz@charite.de
# source_code: https://github.com/medbib-charite/oa-dashboard
---

```{r setup, include=FALSE}
library(flexdashboard)
```

```{r}
source("data_1.R", encoding = 'UTF-8')
source("data_3_rcrossref.R", encoding = 'UTF-8')
```

Dashboard {data-icon="fa-globe"}
===================================== 

Row 
-----------------------------------------------------------------------

```{r}
##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
## Analysis for gauges
##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

load("data/data_unpaywall.Rda")

is_oa <- data %>%
  group_by(jahr, oa_status, is_oa) %>%
  summarise(count = n()) %>%
  group_by(jahr) %>%
  mutate(perc = round(count / sum(count) * 100, 1)) %>% 
  # eliminate rounding differences created by different groupings
  group_by(jahr, is_oa) %>%
  summarise(count = sum(count), perc = sum(perc))

is_doaj <- sort(table(data_unpaywall$journal_is_in_doaj), decreasing = TRUE)
is_doaj <- round(4152/sum(is_doaj)*100, 1)

is_corresponding <- sort(table(data$corresponding_author_cha), decreasing = TRUE)
is_corresponding <- round(6292/sum(is_corresponding)*100, 1)
```


### Open Access-Artikel mit Charité-Beteiligung 2018

```{r}
rate <- is_oa %>% filter(jahr == 2018 & is_oa == TRUE) %>% pull(perc)
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```

### Open Access-Artikel mit Charité-Beteiligung 2019

```{r}
rate <- is_oa %>% filter(jahr == 2019 & is_oa == TRUE) %>% pull(perc)
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```

### Open Access-Artikel mit Charité-Beteiligung 2020

```{r}
rate <- is_oa %>% filter(jahr == 2020 & is_oa == TRUE) %>% pull(perc)
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```


Row 
-----------------------------------------------------------------------

### Artikel mit Charité-Corresponding Author 2018-2020

```{r}
rate <- is_corresponding
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(
  success = c(40, 100), warning = c(30, 39), danger = c(0, 29)
))
```

### Artikel erscheint in einer reinen OA-Zeitschrift (vgl. [DOAJ](https://doaj.org/)) 2018-2020

```{r}
rate <- is_doaj
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```

Row {data-height=auto}
-----------------------------------------------------------------------

### Analyse 1

 Open Access-Status von Artikeln mit Charité-Beteiligung insgesamt und von Artikeln mit Charité-Corresponding Author 2018-2020

Row {data-height=auto}
-----------------------------------------------------------------------

### Artikel mit Charité-Beteiligung (in %)

```{r}
status_percent
```

### Artikel mit Charité-Corresponding Author (in %)

```{r}
status_corresponding_percent
```

Row {data-height=auto}
-----------------------------------------------------------------------

### Artikel mit Charité-Beteiligung (absolute Zahlen)

```{r}
status_absolute_spline
```

### Artikel mit Charité-Corresponding Author (absolute Zahlen)

```{r}
status_corresponding_absolute_spline
```

Row {data-height=auto}
-----------------------------------------------------------------------

### Analyse 2

 Open Access-Status von Artikeln mit Charité-Beteiligung nach Verlagen und Zeitschriften im Jahr 2020

Row {data-height=auto}
-----------------------------------------------------------------------

### Artikel nach Verlagen in absoluten Zahlen

```{r}
publisher_absolute
```

### Artikel nach Zeitschriften in absoluten Zahlen

```{r}
journal_absolute
```

Row {.tabset}
-----------------------------------------------------------------------

### Zentrale Förderung von Artikeln mit Charité-Corresponding Author 2018-2020 nach Verlagen (Top 10)

```{r}
publisher_costs
```

### ... und nach Jahren

```{r}
publisher_costs_year
```

Row {data-height=auto}
-----------------------------------------------------------------------

### Analyse 3

 Lizenzen der mit Charité-Beteiligung publizierten Artikel 2018-2020

Row 
-----------------------------------------------------------------------

### Lizenzen für alle Artikel

```{r}
load("charts/chart_lizenzen.Rda")
chart_lizenzen
```

### Lizenzen für Artikel mit OA-Status gold, hybrid oder green

```{r}
load("charts/chart_lizenzen_oa.Rda")
chart_lizenzen_oa
```

Datentabellen
=====================================

Row 
-----------------------------------------------------------------------

### Artikel mit Charité-Beteiligung: Jahr und OA-Status
```{r}
library(kableExtra)

load("data/data_unpaywall.Rda")

data_sum %>%
  kbl(align = "llll") %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "250px",
  box_css = "border: 1px solid #ddd; padding: 5px; "
)
```

Row 
-----------------------------------------------------------------------

### Artikel Charité Corresponding Author: Jahr und OA-Status
```{r}
data_corresponding_sum %>%
  kbl(align = "llll") %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "250px",
  box_css = "border: 1px solid #ddd; padding: 5px; "
)
```

Row 
-----------------------------------------------------------------------

### Artikel mit Charité-Beteiligung 2018-2020: Lizenzen und OA-Status
```{r}
load("data/data_license_oa_status_final_count_2.Rda")

data_license_oa_status_final_count_2 %>%
  kbl(align = "lll") %>%
  kable_styling() %>%
  scroll_box(width = "100", height = "250px",
  box_css = "border: 1px solid #ddd; padding: 5px; "
)
```


About
=====================================

```{r}
library(htmltools)
  includeMarkdown('about.md')
```